home *** CD-ROM | disk | FTP | other *** search
/ The Disc - MacWorld 1995 / PowerComputing (The Disc)(MacWorld 1995).ISO / mac / CDFACTOR / HCfactor / HumanCode / HumanCode.DXR / 00046_index idle.ls < prev    next >
Encoding:
Text File  |  1995-07-14  |  4.0 KB  |  122 lines
  1. global gColor, glineoffset, gkeywordtext, glastline, gSelLine
  2.  
  3. on exitFrame
  4.   go(the frame)
  5. end
  6.  
  7. on idle
  8.   repeat while rollOver(37)
  9.     if mouseDown() then
  10.       exit
  11.     end if
  12.     if glastline < 25 then
  13.       set mouseloc to (mouseV() - 95) / 12
  14.       if (mouseloc > 0) and (mouseloc <= glastline) then
  15.         set the visible of sprite 29 to 1
  16.         set the locV of sprite 29 to (mouseloc * 12) + 95
  17.         updateStage()
  18.       else
  19.         exit repeat
  20.       end if
  21.       next repeat
  22.     end if
  23.     set mouseloc to (mouseV() - 95) / 12
  24.     if (mouseloc > 1) and (mouseloc < 24) then
  25.       set the visible of sprite 29 to 1
  26.       set the locV of sprite 29 to (mouseloc * 12) + 95
  27.       updateStage()
  28.       next repeat
  29.     end if
  30.     if mouseloc = 1 then
  31.       set the visible of sprite 29 to 1
  32.       set the locV of sprite 29 to 107
  33.       updateStage()
  34.       if glineoffset = 1 then
  35.         if glastline = 25 then
  36.           set the visible of sprite 30 to 0
  37.           set the visible of sprite 31 to 1
  38.           put EMPTY into line 24 of field 34
  39.           delete line 23 of field 34
  40.           put line 1 to 2 of gkeywordtext into line 1 of field 34
  41.         else
  42.           set the visible of sprite 30 to 0
  43.           delete line 23 of field 34
  44.           put line 1 to 2 of gkeywordtext into line 1 of field 34
  45.         end if
  46.         if gSelLine = 1 then
  47.           set the foreColor of line 1 of cast 34 to getAt(gColor, 5)
  48.         else
  49.           if gSelLine = 2 then
  50.             set the foreColor of line 2 of cast 34 to getAt(gColor, 5)
  51.           end if
  52.         end if
  53.         set glineoffset to 0
  54.       else
  55.         if glineoffset > 1 then
  56.           if (glineoffset + 24) = glastline then
  57.             set the visible of sprite 31 to 1
  58.             put EMPTY into line 24 of field 34
  59.             delete line 23 of field 34
  60.             put RETURN & line glineoffset + 1 of gkeywordtext after line 1 of field 34
  61.           else
  62.             delete line 23 of field 34
  63.             put RETURN & line glineoffset + 1 of gkeywordtext after line 1 of field 34
  64.           end if
  65.           if (glineoffset + 1) = gSelLine then
  66.             set the foreColor of line 2 of cast 34 to getAt(gColor, 5)
  67.           end if
  68.           set glineoffset to glineoffset - 1
  69.         end if
  70.       end if
  71.       next repeat
  72.     end if
  73.     if mouseloc = 24 then
  74.       set the visible of sprite 29 to 1
  75.       set the locV of sprite 29 to 383
  76.       updateStage()
  77.       if (glineoffset + 25) = glastline then
  78.         if glineoffset = 0 then
  79.           set the visible of sprite 30 to 1
  80.           set the visible of sprite 31 to 0
  81.           put EMPTY into line 1 of field 34
  82.           delete line 2 of field 34
  83.           put line 24 to 25 of gkeywordtext into line 23 of field 34
  84.         else
  85.           set the visible of sprite 31 to 0
  86.           delete line 2 of field 34
  87.           put line glastline - 1 to glastline of gkeywordtext into line 23 of field 34
  88.         end if
  89.         if gSelLine = (glastline - 1) then
  90.           set the foreColor of line 23 of cast 34 to getAt(gColor, 5)
  91.         else
  92.           if gSelLine = glastline then
  93.             set the foreColor of line 24 of cast 34 to getAt(gColor, 5)
  94.           end if
  95.         end if
  96.         set glineoffset to glineoffset + 1
  97.         updateStage()
  98.         next repeat
  99.       end if
  100.       if (glineoffset + 25) < glastline then
  101.         if glineoffset = 0 then
  102.           set the visible of sprite 30 to 1
  103.           put EMPTY into line 1 of field 34
  104.           delete line 2 of field 34
  105.           put line 24 of gkeywordtext & RETURN before line 23 of field 34
  106.         else
  107.           delete line 2 of field 34
  108.           put line glineoffset + 24 of gkeywordtext & RETURN before line 23 of field 34
  109.         end if
  110.         if gSelLine = (glineoffset + 24) then
  111.           set the foreColor of line 23 of cast 34 to getAt(gColor, 5)
  112.         end if
  113.         set glineoffset to glineoffset + 1
  114.         updateStage()
  115.       end if
  116.     end if
  117.   end repeat
  118.   set the visible of sprite 29 to 0
  119.   updateStage()
  120.   dontPassEvent()
  121. end
  122.